home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / rcheck.arc / PRINT8.CMD < prev    next >
Encoding:
Text File  |  1984-12-18  |  768 b   |  22 lines
  1. SET ECHO OFF
  2. *(    PRINT8.CMD and PRINT18.CMD    Print all OUTSTANDING ITEMS/by date   )
  3. *(    RICHARD T. TRABAND                                                  )
  4. *(                                                                        )
  5. NEW
  6. IF MAIN = 18 THEN
  7.    INPUT b:BUDCATDT.CMD
  8.    OUTPUT PRINTER
  9.       PRINT PRINTRPT SORTED BY DATE TRANCODE CKNUM DESCR +
  10.             WHERE DATE GE .BEGDAT AND DATE LE .ENDDAT +
  11.             AND CLEAR FAILS
  12.    OUTPUT TERMINAL
  13. ENDIF
  14. IF MAIN = 8 THEN
  15.    OUTPUT PRINTER
  16.       PRINT PRINTRPT SORTED BY BUDCAT DATE TRANCODE CKNUM DESCR +
  17.             WHERE CLEAR FAILS
  18.    OUTPUT TERMINAL
  19. ENDIF
  20. FILLIN MAIN USING "PRESS [ENTER] TO CONTINUE  "
  21. QUIT TO b:PRINT.CMD
  22.